object FVwProd: TFVwProd
  Left = 176
  Top = 137
  BorderStyle = bsDialog
  Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1087#1088#1086#1076#1091#1082#1094#1080#1080
  ClientHeight = 467
  ClientWidth = 819
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -19
  Font.Name = 'Times New Roman'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 21
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 819
    Height = 425
    Align = alTop
    TabOrder = 0
    object Panel3: TPanel
      Left = 1
      Top = 89
      Width = 817
      Height = 335
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel3'
      TabOrder = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 817
        Height = 335
        Align = alClient
        DataSource = DataSource2
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -19
        TitleFont.Name = 'Times New Roman'
        TitleFont.Style = []
        OnKeyPress = DBGrid2KeyPress
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ART'
            Title.Alignment = taCenter
            Title.Caption = #1040#1088#1090'.'
            Width = 65
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'NAME'
            Title.Alignment = taCenter
            Title.Caption = #1053#1072#1079#1074#1072#1085#1080#1077
            Width = 339
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'CNT'
            Title.Alignment = taCenter
            Title.Caption = #1054#1089#1090#1072#1090#1086#1082
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'PRICE'
            Title.Alignment = taCenter
            Title.Caption = #1047#1072#1082#1091#1087#1082#1072
            Width = 75
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'OPTPRICE'
            Title.Alignment = taCenter
            Title.Caption = #1054#1087#1090
            Width = 75
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'SELLPRICE'
            Title.Alignment = taCenter
            Title.Caption = #1056#1086#1079#1085#1080#1094#1072
            Width = 75
            Visible = True
          end>
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 817
      Height = 88
      Align = alTop
      TabOrder = 0
      object Label7: TLabel
        Left = 8
        Top = 12
        Width = 116
        Height = 21
        Caption = #1043#1088#1091#1087#1087#1072' '#1090#1086#1074#1072#1088#1072
      end
      object Label3: TLabel
        Left = 16
        Top = 56
        Width = 51
        Height = 21
        Caption = #1055#1086#1080#1089#1082
      end
      object ComboBox1: TComboBox
        Left = 136
        Top = 8
        Width = 425
        Height = 29
        BevelKind = bkFlat
        Style = csDropDownList
        Ctl3D = True
        ItemHeight = 21
        ParentCtl3D = False
        TabOrder = 0
        OnChange = ComboBox1Change
        OnClick = ComboBox1Change
        OnKeyPress = ComboBox1KeyPress
      end
      object SpeedButton9: TBitBtn
        Left = 234
        Top = 53
        Width = 27
        Height = 28
        TabOrder = 1
        OnClick = SpeedButton9Click
        Glyph.Data = {
          C2000000424DC200000000000000420000002800000010000000100000000100
          04000000000080000000120B0000120B0000030000000300000000000000FFFF
          FF00FF4800001111111111111111111111111111111111121111111111111111
          2111111111111111222111111111111112222111111111111222221111111111
          1122222211111111121112111111111112122111111111112221111111111111
          2111111111111112111111111111111111111111111111111111111111111111
          111111111111}
      end
      object Edit1: TEdit
        Left = 80
        Top = 53
        Width = 153
        Height = 29
        BevelKind = bkFlat
        BorderStyle = bsNone
        HideSelection = False
        TabOrder = 2
        Text = #1042#1074#1077#1076#1080#1090#1077' '#1072#1088#1090#1080#1082#1091#1083
        OnEnter = Edit1Enter
        OnKeyPress = Edit1KeyPress
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 425
    Width = 819
    Height = 42
    Align = alClient
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 712
      Top = 8
      Width = 91
      Height = 25
      Caption = #1043#1086#1090#1086#1074#1086
      ModalResult = 1
      TabOrder = 0
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object DataSource2: TDataSource
    DataSet = Det
    Left = 104
    Top = 32
  end
  object ApplicationEvents1: TApplicationEvents
    OnMessage = ApplicationEvents1Message
    Left = 576
    Top = 176
  end
  object Det: TIBQuery
    Database = DM.Base
    Transaction = DM.Trans
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select ART, NAME, cast(PRICE as NUMERIC(8, 2))*1.0/1 as PRICE, c' +
        'ast(OPTPRICE as NUMERIC(8, 2))*1.0/1 as OPTPRICE,    cast(SELLPR' +
        'ICE as NUMERIC(8, 2))*1.0/1 as SELLPRICE, CNT, IDPRODUCT from PR' +
        'ODUCT where IDCAT = 13 order by ART')
    Left = 144
    Top = 80
    object DetART: TIBStringField
      FieldName = 'ART'
      Origin = 'PRODUCT.ART'
      Size = 50
    end
    object DetNAME: TIBStringField
      FieldName = 'NAME'
      Origin = 'PRODUCT.NAME'
      Size = 500
    end
    object DetPRICE: TIBBCDField
      FieldName = 'PRICE'
      Precision = 18
      Size = 3
    end
    object DetOPTPRICE: TIBBCDField
      FieldName = 'OPTPRICE'
      Precision = 18
      Size = 3
    end
    object DetSELLPRICE: TIBBCDField
      FieldName = 'SELLPRICE'
      Precision = 18
      Size = 3
    end
    object DetCNT: TIntegerField
      FieldName = 'CNT'
      Origin = 'PRODUCT.CNT'
    end
    object DetIDPRODUCT: TIntegerField
      FieldName = 'IDPRODUCT'
      Origin = 'PRODUCT.IDPRODUCT'
      Required = True
    end
  end
  object Ask: TIBQuery
    Database = DM.Base
    Transaction = DM.Trans
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select * from CAT')
    Left = 192
    Top = 80
  end
end
